home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aan.d64 / src.customdump < prev    next >
Text File  |  2007-02-28  |  2KB  |  151 lines
  1. ;PUT "@0:CUSTOMDUMP"
  2. ;THIS FILE  SHOULD CONTAIN
  3. ;TWO ENTRY POINTS FOR A BIG
  4. ;DUMP TO THE PRINTER.
  5. ;ENTRY POINTS ARE:
  6. ;PDUMPC
  7. ;PDUMPD
  8. ;PDUMPC SHOULD BE A HIRES DUMP
  9. ;PDUMPD SHOULD BE MILTI-COLOR
  10. ;
  11. ;*******************
  12. PDUMPD
  13.      ;NOTHING HERE
  14. ;*******************
  15. ;***************
  16. PDUMPC JSR RESETP
  17.  JSR OPPTR
  18.  LDA RVSFLG
  19.  BNE NXTLS
  20.  LDA #<RVSTAB
  21.  LDY #>RVSTAB
  22.  BNE NXTL2
  23. NXTLS LDA #<NORTAB
  24.  LDY #>NORTAB
  25. NXTL2 STA XPLAC1
  26.  STA XPLAC2
  27.  STY XPLAC1+1
  28.  STY XPLAC2+1
  29.  LDA #27
  30.  JSR CIOUT
  31.  LDA #65
  32.  JSR CIOUT
  33.  LDA #4
  34.  JSR CIOUT
  35.  LDA #$28
  36.  STA INTMP3 ;INTERNAL TEMP
  37.  LDA #$07
  38.  STA FREKZP
  39.  LDA #$FE
  40.  STA FREKZP+1
  41. XROWXT JSR XXA178
  42.  JSR XXA16C
  43.  LDY #$00
  44. SXXHI LDA BUFRA,Y
  45.  AND #$F0
  46.  LSR A
  47.  LSR A
  48.  LSR A
  49.  LSR A
  50.  TAX 
  51.  LDA RVSTAB,X
  52. XPLAC1 = *-2
  53.  PHA
  54.  PHA
  55.  PHA
  56.  JSR CIOUT
  57.  PLA
  58.  JSR CIOUT
  59.  PLA
  60.  JSR CIOUT
  61.  PLA
  62.  JSR CIOUT
  63.  INY 
  64.  CPY #$C8
  65.  BNE SXXHI
  66.  LDA #$0D
  67.  JSR CIOUT
  68.  JSR XXA16C
  69.  LDY #$00
  70. SXXLOW LDA BUFRA,Y
  71.  AND #$0F
  72.  TAX 
  73.  LDA RVSTAB,X
  74. XPLAC2 = *-2
  75.  PHA
  76.  PHA
  77.  PHA
  78.  JSR CIOUT
  79.  PLA
  80.  JSR CIOUT
  81.  PLA
  82.  JSR CIOUT
  83.  PLA
  84.  JSR CIOUT
  85.  INY 
  86.  CPY #$C8
  87.  BNE SXXLOW
  88.  LDA #$0D
  89.  JSR CIOUT
  90.  DEC INTMP3 ;INTERNAL TEMP
  91.  BNE XROWXT
  92.  LDA #$0C
  93.  JSR CIOUT
  94.  LDA #12
  95.  JSR CIOUT
  96.  LDA #27
  97.  JSR CIOUT
  98.  LDA #64
  99.  JSR CIOUT
  100.  JSR UNTLK
  101.  JSR UNLSN
  102.  JMP DUMMY
  103. XXA16C LDY #$03
  104. XXA16E LDA CTRTB2,Y
  105.  JSR CIOUT
  106.  DEY 
  107.  BPL XXA16E
  108.  RTS 
  109. XXA178 SEI 
  110.  LDA $01
  111.  PHA 
  112.  LDA #$35
  113.  STA $01
  114.  LDX #$00
  115.  LDA #$19
  116.  STA INTMP1 ;INTERNAL TEMP
  117. XXA187 LDA #$08
  118.  STA INTMP2 ;INTERNAL TEMP
  119.  LDY #$00
  120. XXA18E LDA (FREKZP),Y
  121.  STA BUFRA,X
  122.  INX 
  123.  LDA FREKZP
  124.  BNE XXA19A
  125.  DEC FREKZP+1
  126. XXA19A DEC FREKZP
  127.  DEC INTMP2 ;INTERNAL TEMP
  128.  BNE XXA18E
  129.  LDA FREKZP
  130.  SEC 
  131.  SBC #$38
  132.  STA FREKZP
  133.  LDA FREKZP+1
  134.  SBC #$01
  135.  STA FREKZP+1
  136.  DEC INTMP1 ;INTERNAL TEMP
  137.  BNE XXA187
  138.  LDA FREKZP
  139.  CLC 
  140.  ADC #$48
  141.  STA FREKZP
  142.  LDA FREKZP+1
  143.  ADC #$1F
  144.  STA FREKZP+1
  145.  PLA 
  146.  STA $01
  147.  CLI 
  148.  RTS 
  149. ;***
  150.  .END
  151.